Top 10k strings from Begin 5 - Multiple Choice Tester (19xx)(-).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 ********************************
   2 ***********************
   1 slot in       the right answer.
   1 score=score+1
   1 s$(n)="x":
   1 s$(n) is "1" if the nth      question has been answered      correctly,"0" if incorrectly    and "x" if not asked.
   1 s$(datanum):
   1 request number of q's
   1 repeat or quit?
   1 questions from data statements  starting at line 9000. You can  add as many extra data items as you like.
   1 questions & answers
   1 q$ and c$ are the           country and correct capital     for the qth data pair.
   1 print score
   1 print                       results.
   1 numq>datanum
   1 numq=number of                  questions to be asked.
   1 now decide on correct           answer
   1 multiple choice tester
   1 main program
   1 leave out correctly             answered questions.
   1 initialise variables
   1 if n>1 check for                repeats.
   1 flash correct answer.
   1 find question
   1 find datanum
   1 find a$(1..5)
   1 find             alternative answers
   1 find                        question
   1 datanum=number of pairs of items in the data statements.
   1 datanum=datanum+1
   1 c=number of correct               answer
   1 ask question
   1 ask                         question
   1 a$(n),a$(n):
   1 a$(f)=a$(n)
   1 The program first reads the dataas far as the "end" marker to   see how many item pairs exist.  Then it asks you how many       questions you want.
   1 The main loop calls subroutines to select a question, select 5  alternative answers and finally print the question, check the   response and update the score.  ******************************** 
   1 STOP THE TAPE
   1 PLEASE RUN THE TAPE
   1 It is currently set up          to ask questions on             Capitals.
   1 BEGIN 5   
   1 ;"What is the capital of";
   1 ;"This program can ask questions  on the capitals of ";datanum;" countries."
   1 ;"CORRECT!"
   1 ;"BEGIN 5":
   1 ;"BEGIN 5"
   1 ;"  PRESS ANY KEY      "
   1 ***********************This program will select
   1 ''"How many questions would you    like to attempt?"
   1 '"You got these wrong;"
   1 '"You got ";score;" right."
   1 "You answered ";numq;" questions"
   1 "Spain","Madrid","Portugal","Lisbon","Hungary","Budapest","Poland","Warsaw"
   1 "Qatar","Doha","Romania","Bucharest","Sri Lanka","Colombo","Turkey","Ankara","USSR","Moscow","Vietnam","Hanoi","Zambia","Lusaka"
   1 "Israel","Jerusalem","Lebanon","Beirut","Morocco","Rabat","Norway","Oslo","Oman","Muscat","Peru","Lima"
   1 "France","Paris","W Germany","Bonn","Italy","Rome","Greece","Athens"
   1 "Finland","Helsinki","Guyana","Georgetown","Iran","Teheran","Iraq","Baghdad"
   1 "Enter number.";numq
   1 "England","London","Wales","Cardiff","Scotland","Edinburgh","Ireland","Dublin"
   1 "Austria","Vienna","Belgium","Brussels","Canada","Ottowa","China","Peking","Denmark","Copenhagen","Egypt","Cairo"
   1 "Afghanistan","Kabul","Albania","Tirana","Algeria","Algiers","Angola","Luanda","Argentina","Buenos Aires","Australia","Canberra"
   1  to run again,           Press 
   1  to move on.":
   1  the five      alternative answers
   1     keyboard insensitive pause.
   1           reject correct answer
   1               alternative answers